home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
mint
/
lib
/
mntlib44.zoo
/
mntlib
/
dup.c
< prev
next >
Wrap
C/C++ Source or Header
|
1994-03-01
|
783b
|
45 lines
/* from Dale Schumacher's dLibs library */
/* will have to be adjusted at some time ++jrb */
/* use with caution, TOS 1.4 still has double re-direction bug! */
#include <stddef.h>
#include <fcntl.h>
#include <errno.h>
#include <mintbind.h>
#include <unistd.h>
#include "lib.h"
extern int __mint;
int
dup(handle)
int handle;
{
register int rv;
long flags;
if (__mint)
rv = (int)Fcntl(handle, (long)0, F_DUPFD);
else
rv = (int)Fdup(handle);
if (rv < (__SMALLEST_VALID_HANDLE)) {
errno = -rv;
rv = -1;
}
else
{
if (__OPEN_INDEX(rv) < __NHANDLES) {
__open_stat[__OPEN_INDEX(rv)] =
__open_stat[__OPEN_INDEX(handle)];
}
if (__mint) {
flags = (long)Fcntl(rv, (long)0, F_GETFD);
(void)Fcntl(rv, flags & ~FD_CLOEXEC, F_SETFD);
}
}
return(rv);
}